home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / zpont311.lha / zpoint-3.11 / Rexx / SaveBinariesRT.zprx < prev    next >
Text File  |  1995-03-09  |  1KB  |  58 lines
  1. /* SaveBinariesFR.zprexx */
  2. /* Speichert alle binären Messages und setzt sie auf löschen */
  3. /* Mit FileRequester dank rexxreqtools.library */
  4.  
  5. parse arg ZPPort
  6. address value ZPPort
  7. options results
  8.  
  9. whichlevel
  10. if result~='BOARD' then do
  11.    REQUESTNOTIFY 'Nur in einem Brett aufrufbar!'
  12.    exit
  13. end
  14.  
  15. if 0=show('L','rexxreqtools.library') then do
  16.    if 0=addlib('rexxreqtools.library',0,-30) then do
  17.       REQUESTNOTIFY "Benötige RexxReqTools!"
  18.       exit
  19.    end
  20. end
  21.  
  22. directory=rtfilerequest('Work:Archives',,'Bitte Pfad angeben:',
  23. ,,'rt_pubscrname='ZPPort' rtfi_flags=freqf_nofiles')
  24.  
  25. if directory='' then exit
  26.  
  27. count all
  28. nrofmails=result
  29. saved=0
  30.  
  31. do i=1 to nrofmails
  32.    jumptomessage i
  33.    messageinfo type
  34.    if result='BINARY' then do
  35.       messageinfo subject
  36.  
  37.       /* Aus dem Subject einen Filenamen basteln */
  38.       /* Länge auf 30 Zeichen begrenzen, Spaces durch "_" ersetzen */
  39.       filename=left(result,30)
  40.       filename=space(filename,1,'_')
  41.       filename=directory filename
  42.  
  43.       if exists(filename) then do
  44.          REQUESTRESPONSE 'File 'filename' existiert bereits. Überschreiben?'
  45.          if rc=0 then iterate
  46.       end
  47.       savemessagebody filename
  48.       if rc=0 then do
  49.          REQUESTNOTIFY 'Fehler beim speichern!'
  50.          exit
  51.       end
  52.       delete one
  53.       saved=saved+1
  54.    end
  55. end
  56.  
  57. REQUESTNOTIFY saved' Nachrichten gespeichert.'
  58.